home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2000 September / macformat-094.iso / MacFormat CD / MacFormatOpen / 00005_Rollover Member Change.ls < prev    next >
Encoding:
Text File  |  2000-07-21  |  1.1 KB  |  41 lines
  1. property spriteNum, mySprite, myStandardMember, myRollovermember
  2.  
  3. on getBehaviorDescription me
  4.   return "ROLLOVER MEMBER CHANGE" & RETURN & RETURN & "Change the sprite's cast member when the mouse rolls over the sprite." & RETURN & RETURN & "PARAMETERS:" & RETURN & "* Rollover cast member"
  5. end
  6.  
  7. on getBehaviorTooltip me
  8.   return "Use with graphic members." & RETURN & RETURN & "Swaps a sprite's cast member on rollover."
  9. end
  10.  
  11. on beginSprite me
  12.   mySprite = sprite(me.spriteNum)
  13.   myStandardMember = mySprite.member
  14. end
  15.  
  16. on mouseEnter me
  17.   mySprite.member = myRollovermember
  18. end
  19.  
  20. on mouseLeave me
  21.   mySprite.member = myStandardMember
  22. end
  23.  
  24. on isOKToAttach me, aSpriteType, aSpriteNum
  25.   case aSpriteType of
  26.     #graphic:
  27.       return 1
  28.     #script:
  29.       return 0
  30.   end case
  31. end
  32.  
  33. on getPropertyDescriptionList
  34.   if the currentSpriteNum = 0 then
  35.     exit
  36.   end if
  37.   theMember = sprite(the currentSpriteNum).member
  38.   theMemberNumber = theMember.number
  39.   return [#myRollovermember: [#comment: "Display which member on rollover?", #format: #graphic, #default: member(theMemberNumber + 1)]]
  40. end
  41.